EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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LLLLLLLLLLLLLLL | 
| 
| 
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LIBSSYS_TRNLOG Translate logical name 18-Se 1984 01:20: AX-11 Bliss-32 V4.0-74 Page 

° 122808- 1382 93:99:48 LIBRTL.SRCJLIBTRNLOG.B52;1 . 
H 1 0 MODULE LIBSSTS TNL OS (ZTITLE' Translate Logical nang. 
: § oe IDENT = '1-010' . ! File: LIBTRNLOG.B32 EDIT: SBL1010 
a eg BAe 
: § Boog 1 leuanenaceennenaeeneneneeenerenseeeerersneteretreeneentenenentnnneneneenentes 
3 '® ® 
3 8 Boos 1 !'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
>; 9 009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
3 \ Bare ! i. ALL RIGHTS RESERVED. . 
: ig Bog 1 it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
. 1 01 1 !@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
H 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i SEA : ? TRANSFERRED. * 
P ° 8 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 3 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$ $3 89 1 : ? CORPORATION. * 
Ps } % 
: 25 00 : 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $e 4 : ; s SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Py : ® 
; @ Boss 1 !e * 
gs 27 00 7 1 Lee REAR AEE AAA RAE AAA EAA RARER AEAERAEAERREREEAEEE 
; ao 0028 1! 
3 9 94 1 
g 0 0030 1 !++ 
3 1 aid ; } FACILITY: General Library Support 
; 33 0033 | i ABSTRACT: 
et’ 0034 1! 
; 0035 1! Using STRNLOG translate a logical name, returning the 
; » 0036 1 ! resultant string using the semantics of the caller's string. 
ch ar 0037 1 ! Parameter DSBMSK is presented to this routine ar ceverence and 
: $3 Boa8 : : is promoted to by-value for presentation to STRNLOG 
: 40 9040 i ENVIRONMENT: VAX-11 User Mode 
; 2 One$ \ AUTHOR: R. Reichert, CREATION DATE: 20-SEPT-1979 
>: 44 4 1 | MODIFIED BY: 
; 65 045 1! 
; 46 8086 1 ! 1-001 = Original. RKR 20-SEPT-1979 
: «47 0047 1 ! 1-002 - Change name to LIBSSYS_TRNLOG. RKR 15-OCT-79 
; 648 0048 1 ! 1-005 - Correct some minor errors in RSLLEN and tetureing 
; «649 0049 1! status, and improve the comments. JBS 19-OCT-1979 
; @ 050 1 ! 1-004 = Add code to pr te by-reference parameter to by-value 
; oT 51 1! perencter. KR 1-NOV-79 
: 2§ 036 1 ! 1-005 = Change STR$ codes to LIBS codes. RKR 22-JAN-80 . 
3 2 053 1 ! 1-006 - Enhance to recognize additional classes of string descriptors 
3 4 054 1! on outpye by givays getting ata into internal buffer and 
55 1! using ties. OPY_DXDX6 to deliver to caller's buffer. 
= B36 1! LIBSANALYZE_SD is used to compute the number of bytes 
;. OF or 6 actually copied after the copy operation completes. 


YS_TRNLOG Translate logical name 16-Sep-19 AX=-11 Bliss-32 v4.0 
3 . 16-$ep-198 93: $9: 8 LIBRTL.SRC LIBTRNLOG. if 231 


; 3 058 1! Chen e to use LIBSSCOPY_DXDX6 instead of STRSCOPY_DX. This 
; 23 1: it s having to change STR$ statuses to L1B$ statuses and 
; rs of ; } cam ipetes + need for a handler. 

: 6 1 | 1-007 - Hr se code to process strin ges ri tor hat 

; 8 5 1! spe le : xed string ce descriptors. . R fot ras 158i. 

; 64 4 1! 1-008 - tre ae sb s from SDESC_R 

; 65 5 i LIBsANALY2 E SpESC. R2. Use At} YBSscDpY “RDK6 ler copying. 

; e 5 1 | 1-009 - — LNMSC ahAn CNT as the maximum name/trans wg ba benath. 
; oo 8 1! Use prologue file, other f mecovenents. SBL 10-Jan-1 

; 4 i } ; 17010 - Return status from $TRNLOG if otherwise Ram SBL 15-Mar-1983 
. 0071 1— 

s fe 0072 1 !<BLF/PAGE> 


Page 
: (1 


2 
) 


---—-- - + CO - + 


i EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_R2$LINKAGE, 


! Extract length 
! and address of 


Ist data byte 


! from descriptor 


IBSSYS_TRNLOG Trans!ate logical name 1b-5e Sep-1984 AX=-11 a? 
AIRS “SEpcHBRE 11:88596 WMS 
is 2 73 
is: Pp 74 1 ! PROLOGUE FILE: 
3 ’ 8 } ' 

3 ee 0” : REQUIRE ‘RTLIN:LIBPROLOG'; ' LIBS definitions 
E at 189 i TABLE OF CONTENTS 
3 S¢ 71 a8 

; § 01 ¢ 1 

; 86 1 1 FORWARD ROUTINE 

: $2 138 ! LIB$SYS_TRNLOG; ! Translate logical name 
; 87 01 § iz 

; 688 0157 1 ! MACROS: 

; = «Bg 3138 1! 

; 159 1! NONE 

; 0160 1! 

: 3 0161 1 ! EQUATED SYMBOLS: 
 , 3196 1! 

; 94 0165 1! NONE 

;- 0164 1! 

; 96 0165 1 ! OWN STORAGE: 

5 97 8106 1 

; 0167 1 NONE 

:; 299 0168 1 

; 100 0169 1 

2 ie 

3 08 01 ¢ 1 

: 104 01 1 

; 303 0174 #1 

; 106 0175 #1 

; 107 0176 1 

; 108 0177 +1 


dd et a 
SSNS 


LIBSSCOPY_DXDx; ! Copy string by descriptor. 


sh 


4.0-74 P 
ibrkn NLOG. 882; 31 — ; 


a an 


; 


i 


iE 
a | 
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Translate topical name 12286871982 93:99:48 UOTaRTL SRE SLISTRNLOG-B92:1 af 
178 1 GLOBAL ROUTINE LIBS$SYS_TRNLOG CESBTTL "Trenstate logical name’ | 
179 1 LOGNAM: REF BLOCK [, BYTE) ' Logical name descriptor | 

RSLLEN: REF VECTOR C, WORDS, i Result Length 
RSLBUF: REF BLOCK f. BYTE], i Resultant string 
TABLE: REF VECTOR BYTE ! Table number 

ACMODE: REF VECTOR . eyTEd. i Access mode 

F VECTOR L, BYTE ! Disable mask 


DSBMSK: RE 
d= 
re | 
| FUNCTIONAL DESCRIPTION: 
i Using $TRNLOG translate a logical name, returning the | 
! resultant string using the semantics of the caller's string. | 
! Parameter DSBMSK is presented to this routine a7 reterence and 
! is promoted to by-value for presentation to $TRNLOG 
See STRNLOG system service description 
FORMAL PARAMETERS: 
LOGNAM.rt.dx address of logical name string descriptor 
RSLLEN.ww.r address of word to receive length of | 
| 


resultant name string 
(Optional parameter) 


SOOOCCSOCOOOO0OO0OOOMWMdcaac cd 


pee tene eh ated og oO 
WO DONO UES WO OONAUE WN "OOO QEAREWLSSSVSSL AN SSS VSS LAVES 


RSLBUF .wt.dx address of result string buffer descriptor 


an PAA VUIUIUIN E B EEE PAW 


Ne ee ee eee ww wel elolololololelelolelolelolololololololelelolelololololo ola) 


PRIPIPOPPOPIMIPINIPIAININIPIPYPIPIPYNPIPIPDPIPIPINININPIAINI NINN NINYDD 3 2 I Ot SS SO 
ee ee ee ee ee en nn ee ee ee ee eee 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; TABLE .wb.r address of byte to receive logical name table 
0 : number 
, (Optional parameter) 
1 ACMODE .wb.r address of byte to receive access mode of entry 
1 ; spreqeee table only) 
: } (Optional parameter) 
1 DSBMSK.rbu.r Address of 
1 : table search disable mask 
: (Optional parameter) 
} : Bit Set Meaning 
; eeeeeoeo * 222 eee 
0 Do not search system | 
; 1 Do not search group 
2 Do not search process 
i IMPLICIT INPUTS: 
; NONE | 
. | 
; IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 


A A 


Se ie, de, nt, WE ee ae, Titec ee Ga ee st Me ake a Salt eee a od i 8 Ne i PE © ae ee ee ee ] 


SS$_IVLOGNAM 


cannot be read, or the output Length. output 
buffer, or table or access mode f 

be written by the caller. 

The specified logical name string has a length 


eld cannot 


dD 1 
|LIBSSYS_TRNLOG Translate logical name 16-Sep-1984 01:20: AX-11 Bliss-32 V4.0-74 Page I 
he Translate logical name 12780-1382 93:99:48 UtaRTL RESLIBTRNLOG.B92:1 ’ (33 “ 
ies 67 ' i 

68 ‘ SS$_NORMAL Procedure successfully completed 

$8 LIBS_WRONUMARG Wrong number of arguments 

0 From LIBSSCOPY DxDX 

71 LIBS_STRTRU Success, but source string truncated 

Le LIBS_INSVIRMEM Insufficient virtual memory 

7 LIBS_INVSTRDES Invalid string descriptor 

74 From $TRNLOG 

75 SS$_NOTRAN Successful, but input logical name string was 

r$ placed in output buffer because no equivalence 

7 name was founc. 

re SS$_ACCVIO The logical name string or string descriptor 

of zero or has too many characters. 
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1 
: SIDE EFFECTS: 
; NONE 

1 

BEGIN 


BUILTIN 
NULLPARAMETER; 


PAAXEMNMAMNMMAM NIE BE BEE EE PAIN 


CAL 

LOCAL_RSLBUF: VECTOR CLNMSC_NAMLENGTH, BYTE], ! Local resultant buffer 
LOCAL_RSLBUF_DESC : BLOCK (8, j, ' Descriptor fer local buffer 
LOCAL ™~ DESC: BLOCK (8, BYTE ' Local copy of LOGNAM descriptor 
STATUS1, TRNCOG_STATUS, COPY_STATUS; ‘ Statuses from called routines 


ooo AAA O 


'¢ 
Validate argument count. 


SLIBSVALIDATE_ARGCOUNT (3,6); 


'¢ 
Construct static descriptor to describe LOGNAM string. 


SESSE FULTS SS SSP OS SSENS SPORES 


POPIPIPOPNIPYIPIPININININPININININININIPOPUNIPUNININNY 


MORO NoNOnonoNony 2 2 eo 


LOCAL_LOGNAM_DESC fpscsB ory PE) = DSCSK_DTYPE_T; 
LOCAL LOGNAM DESC CDSC$B CLASS = DSCS$K CLASS“8; 
STATUS = LIBSANALYZE_SDESC R2 (LOGNAM [0,0,070); 
DESC” CDSC$Q_LENGTHJ, LOCAL’LOGNAM_DESC CDSCSA_POINTER]); 


LOCAL LOGNAM_ 
IF el - STATUS1 
RETURN .STATUS1; | 


109009 09 C8 C808 SIN SINISE SY 


'¢ 


i Construct a static descriptor to receive the translated string from 
! YAX/VMS 


tad } 


POR POROPOROROPOPONOPONOROPONONONOPOPORIPONUNONUPONINONUNONUNNNY = ts 


Se ee ee ee eee ee eee eee eee ewww lo lelolololololololololol olololololololololololo) 


PoPoPonononononononoponopfornygs 


ROMOPIAY — s**t tt ot tS 
WN —O OOnNOUlWN oO 


PORSPoRoNonononofofofoforory 


/LIBSSYS_TRNLOG Translate logical name 18 se 1984 01 1 AX=-11 Bliss-32 V4.0-74 P 3 | 
™ -3epo- g2U: a s$s- -VU- 
1 Ot8 Translate logical name 12-808- 1986 93:99:48 LIBRTL.SRCJLIBTRNLOG.B352;1 nor (3) i 
9 
9 LOCAL_RSLBUF_DESC [DSC$W_LENGTH] = LNMSC_NAMLENGTH; 
94 LOCAL -RSLBUF —DESC DSC$B_DTYPE] = DSCSK_BTYPE_T; 
95 LOCAL“RSLBUF-DESC [DSCSB-CLASS] = DSCSK-CLASS~S: 
36 LOCAL-RSLBUF-DESC ECDSCS$ATPOINTER] = LOCAL_RSLBUF; 
98 1+ 
99 i Do the STRNLOG. 
00 ie 
01 
P 0¢ 
P = LOCAL_LOGNAM_DESC (0,0,0,0), 
P RSLLEN = LOCAL-RSLBUF ~DESC pscsu it NGTH), 
P 0305 RSLBUF = LOCALRSLBUF DESC (0,0,070), 
P 06 TABLE = (IF NOLLPARAMETER(4) THEN 0 ELSE TABLE C01) 
P 030 ACMODE = (IF NULLPARAMETER(S) THEN 0 ELSE ACMODE (05 
08 DSBMSK = (IF NULLPARAMETER(6) THEN 0 ELSE .DSBMSK (015); 


'¢ 
! Copy internal buffer to caller's buffer, letting LIBSSCOPY_DXDx 
worry about its semantics. 


COPY STATUS = “he nae (LOCAL_RSLBUF _DESC (0,0,0,0], 
RSLBUF (0,0,0,0]); 


1+ 
Store result string length if desired. 


PIPIPIPIPINIPIPIPININIMINININONOPOPEPOPUPOPUNIP NI PONonononony 


DPAAAADAAVIUT EE & nie wb Senne eee 
DOONAN (“OO BNAVE WD OOONAUE WN“ OVOONOUS 


IF RSLLEN CO] NEQA 0 
THEN 


WAWNAA AAAI AANNANNA AAA 


MIPINOPORONOPONONY 2 2 ee 


DWONAVESWN —"OVONOUS WO 


BEGIN 
LIBSANALYZE_SDESC_R2 (RSLBUF [0,0,0,03; RSLLEN (OJ); 
IF .RSLLEN [OJ GTRU .LOCAL_RSLBUF DESC’ CDSC$W_LENGTH) 


THEN 
- RSLLEN CO} = .LOCAL_RSLBUF _DESC COSC$W_LENGTH); 


AAO 
wn 


'¢ 

: At this point we have 2 statuses that we could return to caller. 
! Determine which one is the ‘most meaningful". 
! If STRNLOG returned anything other than SS$_NORMAL, then return that 
status, otherwise return the copy status. 


SARA SMA 


$ 


GEARS 


IF -TRNLOG_STATUS NEQU SS$_NORMAL 


RETURN .TRNLOG STATUS; 
RETURN .COPY_STATUS; 


END; ! end of LIBSSYS_TRNLOG 


WWAANI NIAAA AAA WWW 
Por a YY 


SOOOOCOCOCOCOCOOCOOCOCOCOOSOSOSSSOSSOCOSCCSOOOOOCOOOOOCOCOOOOOOOO 


honononororonvrunonny 
NISSSEIES, 


ae 
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TRNLOG_STATUS = $TRNLOG ( 
LOGNAM 

S_TRNLOG Translate logical name 

| 


Ege See MS a OR” Ba eT oS ET ek pa re — ee : 


~ 
LIBSSYS_TRNLOG Translate logical name 6-Sep-1984 01:20: AX-11 Bliss-32 V4.0-74 P 7 
58% r78eb-198¢ 13:99:55 Marte seeScterencoc.6$2;1 ~~ 


II 
Translate logical name " 


— 


.EXTRN LIBSANALYZE_SDESC Re 
-EXTRN LIBSSCOPY_DRDX, LTB _WRONUMARG 
-EXTRN SYSSTRNLOG | 
| PSECT _LIBSCODE,NOWRT, SHR, PIC,2 | 
007¢ 000 .ENTRY LIBSSYS_TRNLOG, Save R2,R3,R4,R5,R6 : 017 
56 000000006 00 9€ o002 MOVAB sL BSANATYZE SDESC_R2, RO : se 
SE FEF 3 0 MOVAB -272(S?), SP : 
50 6¢ : 000 SUBB3 #3, (AP). DIFF + 0274 
0 1 0001 CMPB)O#OCdFF, #3 : 
0 18 0 1 BLEQU 1 : 
50 000000006 8F D6 0 7 VL #LIB$_WRONUMARG, RO : 
02 =A O10E BF 80 BOTs 1$ MOVW #270, LOCAL_LOGNAM_DESC+2 + 0280 
5 04 ac dO 00025 MOVL LO R + 0283 
66 16 00029 JSB LIBSANALYZE_SDESC_R2 : 
6E 1 BO 00028 MOVW 1, LOCAL_LOGNAM_BESC : 
04 AE 52 D0 000 MOVL 2, LOCAL LOGNAM-DESC +4 : 
01 50 FB 900 BLgS STATUS1, 2 3 0284 
08 AE O10EOOFF 8F 00 00036 2$: MOVL  #17694975, LOCAL_RSLBUF_DESC + 0293 
OC AE 10 AE 9E 000 : MOVAB LOCAL_RSLBUF, LOCAL_RSLBUF _DESC+4 + 0296 
06 6c 91 9004 CMPB ss CAP) , "#6 + 0308 
05 1F 00046 BLSSU -3$ ; 
18 AC D5 00048 TSTL 24(AP) : 
04 12 00048 BNEQ 4$ : 
7E D4 90040 3$: CLRL = (SP) : 
04 11 O004F RB 5$ ; 
7E 18 BC 9A 90051 4$: MOVZBL @DSBMSK, -(SP) : 
05 6C 91 00055 5$: CMPB CCAP), «#5 ; 
05 1F 00058 BLSSU  6$ F 
146 AC D5 0005A TSTL OCAP) F 
4 12 0040 BNEQ $ ; 
: D4 O005F 6$: CLRL = = (SP) ; 
03 11 00061 BRB as : 
14 AC DD 00063 7$ PUSHL  ACMODE ; 
04 6c 91 0066 8$ CMPB_ ss (AP), #4 : 
05 1F 0006 BLSSU 9S : 
10 AC 05 0068 TSTL 16(AP) : 
3 006 BNEG 108 : 
E D4 00 9$: CLRL = = (SP) : 
03 11 0007 BRB 1$ : 
10 AC po 74 108 PUSHL TABLE : 
14 AE 9F 00077 118 PUSHAB LOCAL_RSLBUF _DESC ; 
18 AE 9F QOO7A PUSHAB LOCAL ~RSLBUF ~DESC : 
14 AE 9F 0007D PUSHAB LOCA : 
000000006 90 06 FB 980 CALLS is, SYSS$TRNLOG ; 
D 6 MOVL RO, TRNLOG_STATUS ; 
oc AC pp A PUSHL (eu ; 0 16 
C AE OOF PUSHAB LOCAL_RSLBUF_DESC > 0315 
00000000¢ 99 9 F CALLS #2, LIBSSCOPY DXDx > 0316 
D 9 MOVL RO. COPY TATOS ; 
3 08 . p OA novi RSLLEN, R ; 0322 
50 Oc ac D A MOVL RSLBUF RO > 0325 
66 16 O00A4 JSB LIBSANALYZE_SDESC_R2 : 
| 


LREET SFOS Translate logical name 
-01 Translate logical name 


; Routine Size: 192 bytes, 


Name 
LIBSCODE , 


File 


-$255$D0UA28: CSYSLIBISTARLET 
~$255$DUA28: CLIBRTL.OBJIRTL 


iSeseoct9ge O1:gs1¢ Yared eLiena2 v4 0-742 


63 51 B0 A MOVW = R1,_ (R3) 
08 AE 6 : A CMPW (RS), LOCAL _RSLBUF _DESC 
4 AD BLEQU 1 
3 08 AE 8 AF MOVW  LOCAL_RSLBUF_DESC, (R3) 
1 54 D B3 128: CMPL TRNLOG_STATUS, #1 
04 1 8 BEQL Ss 
50 4 p60 O88 MOVL TRNLOG_STATUS, RO 
50 55 DO OOOBC 13$:  MOVL § COPY_STATUS, RO 
04 0008F RET 


Routine Base: _LIBSCODE + 0000 


! end of module LIB$SYS_TRNLOG 


PSECT SUMMARY 
Bytes Attributes 
192 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


oneness Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
-L32;1 9776 11 9 581 00:00.8 
L1B.L32;1 36 2 8 00:00.1 


COMMAND QUALIFIERS 


Be De Se Se Be Ge Ge Se Se te 


BLISS/CHECK= (FIELD. INITIAL OPT IAIZE) /NOTRACE/LIS=LISS:L 1BTRMLOG/0BJ=08$:LIBTRNLOG MSRC$:LIBTRNLOG/UPDATE=(ENH$:LIBTRNLOG 


Elapsed Time: 
Lines/CPU M 
Peewee BL Bet 


0 data bytes 


-Et6 


Pome As nay Complete 


YS_TRNLOG Translate lo 
Trarslate lo 


86 poges 


3 


cal name 
cal name 


H 1 
16-Sep-1984 01:20:16 
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| N91 | AH-BT13A-SE 7 T CORPORATION 
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